home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 53 / Digital_Talk_53_2002-02-11_Digital_Talk_de_Side_A.d64 / b&d - anleitung! (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2002-01-01  |  1.8 KB  |  49 lines
  1. 0 :goto100:
  2. 20 :save"@0:bu+di text text",8:return:
  3. 21 :
  4. 22 :
  5. 100 :rem----schirm-ausgabe
  6. 101 :dimz$(25):gosub1000:poke53280,f0:poke53281,f1
  7. 102 :print"[147]";:fori=.to23:printz$(i);:next:printz$(i);
  8. 105 :poke198,.:wait198,1:geta$:
  9. 108 :
  10. 109 :
  11. 200 :rem----nachladen
  12. 201 :r$=chr$(13):h$=chr$(34):a$=r$+"run"+r$
  13. 202 :print"[147]?"h$"[147]"h$":l[207]"h$"bubble & dimond"h$",8:";:poke211,.
  14. 205 :fori=1tolen(a$):poke630+i,asc(mid$(a$,i)):next:poke198,i-1:sys42107:
  15. 206 :
  16. 207 :
  17. 208 :
  18. 209 :
  19. 1000 :rem-----schimcodes
  20. 1050 :vm= 0:f0= 11:f1= 12:f2= 0:f3= 0:f4= 0:xa= 0:xe= 39:ya= 0:ye= 24
  21. 1052 z$(0)="[208]rogrammbeschreibung[146] [159][194]lasen & [196]iamanten "
  22. 1053 z$(1)="[146]                                        "
  23. 1054 z$(2)="[153]- unendlich viele [204]evel                 "
  24. 1055 z$(3)="[146]- neun [211]chwierigkeitsstufen             "
  25. 1056 z$(4)="[146]- [194]edienung mit [202]oystick oder [212]astatur  "
  26. 1057 z$(5)="[146]- geeignet fuer [193]nfaenger und [198]ort-     "
  27. 1058 z$(6)="[146]  geschrittene, aller [193]ltersklassen     "
  28. 1059 z$(7)="[146]- [199]eschwindigkeit und [215]ackelzahl im     "
  29. 1060 z$(8)="[146]  [200]auptmenue frei einstellbar.          "
  30. 1061 z$(9)="[146]- [208]rogrammiersprache [194]asic              "
  31. 1062 z$(10)="[146] ([193]daptation to other languages allowed)"
  32. 1063 z$(11)="[146]                                        "
  33. 1064 z$(12)="[146][200]allo  [211]pieleliebhaber und  [198]ans,  ich  "
  34. 1065 z$(11)="[146]                                        "
  35. 1066 z$(13)="[146]hoffe, das das [211]piel [194]lasen & [196]iamanten "
  36. 1067 z$(14)="[146]                                        "
  37. 1068 z$(14)="[146][197]uren [199]eschmack getroffen hat.          "
  38. 1069 z$(16)="[146]                                        "
  39. 1070 z$(17)="[146][196]ie bisherigen [212]ester waren zumindest   "
  40. 1071 z$(18)="[146]                                        "
  41. 1072 z$(18)="[146]positiv angetan.                        "
  42. 1073 z$(20)="[146]                                        "
  43. 1074 z$(21)="[146][214]iel [211]pass beim [211]ammeln und [196]addeln     "
  44. 1075 z$(22)="[146]                                        "
  45. 1076 z$(23)="[146][215]uenscht [197]uch      [158][196]. [194]reitinger       "
  46. 1080 :a=1:return
  47. 1083 :
  48. 1084 :
  49.